CAAInterpolate_InterpolateToHalves4 <-
function(Y1, Y2, Y3, Y4){
.Call("CAAInterpolate_InterpolateToHalves4", Y1, Y2, Y3, Y4)
}
